0 GOTO7
1 READA,B:B=B*10:IFA=-1THENEND
2 FORI=1TOB:SYS49152,A:NEXT:GOTO1
3 DATA160,6,80,6,55,6,40,6,28,6,28,6,20,3,20,3,20,3,20,3,28,9
4 DATA20,3,20,3,20,3,20,3,28,9,1,1,40,3,40,3,40,3,40,3,55,6,55,6,80,3,80,3
5 DATA80,3,80,3,160,8,1,2,230,6
6 DATA210,6,180,6,150,1,100,1,150,1,100,1,150,1,100,1,150,1,100,1,150,1,-1,-2
7 READA:IFA<>-2THEN7
8 FORI=49152TO49171:READA:POKEI,A:NEXT:RESTORE:GOTO1
9 :
10 REM ********************************
11 REM ***     DATASETTEN MUSIK     ***
12 REM ***  VON  ANDREAS SCHINDLER  ***
13 REM ********************************
14 :
15 REM SYNTAX :  SYS49152,A (000-255)
16 DATA120,32,253,174,32,158,183,169,7,133,1,202,208,253,169,39,133,1,88,96
17 :
18 REM  DAS LIED STEHT IN DEN DATA-
19 REM  ZEILEN 3-6.  DAS MASCHINEN-
20 REM  SPRACHEPROGRAMM IN ZEILE 16
21 :
22 REM  A GIBT DIE TONHOEHE AN
23 REM  B IST DIE ZEITDAUER